﻿Public Class Principal

    Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
        If MsgBox("Deseja realmente sair?", MsgBoxStyle.YesNo, "Atenção") = MsgBoxResult.Yes Then
            Form1.Close()
        End If
    End Sub

    Private Sub ControleDeRastreadoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControleDeRastreadoresToolStripMenuItem.Click
        crtrastreadores.MdiParent = Me
        crtrastreadores.Show()
    End Sub

    Private Sub Principal_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form1.Close()
    End Sub

    Private Sub Principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStripStatusLabel2.Text = Form1.TextBox1.Text
        ToolStripStatusLabel4.Text = DateValue(Now)
    End Sub

    Private Sub UsuáriosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuáriosToolStripMenuItem.Click
        USUARIOS.MdiParent = Me
        USUARIOS.Show()
    End Sub

    Private Sub PositronToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PositronToolStripMenuItem.Click
        Rastreadores.MdiParent = Me
        Rastreadores.Show()
    End Sub
End Class